home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u5.d64 / scr2petsci.func < prev    next >
Text File  |  2007-02-28  |  451b  |  20 lines
  1. 9000 //--- SCREEN CODE TO PETASCII--
  2. 9010 //--- CONVERSION FUNCTION -----
  3. 9020 //
  4. 9030 // CALLING STATEMENT COULD LOOK
  5. 9040 // LIKE THIS:
  6. 9050 // PRINT CHR$(SCR_PETSCI(LOC)),
  7. 9060 // WHERE LOC IS A SCREEN
  8. 9070 // LOCATION FROM 1024 TO 2023.
  9. 9080 //
  10. 9090 FUNC SCR_PETSCI(LOC) 
  11. 9100 C:=PEEK(LOCATION)
  12. 9110 IF C>=65 AND C<=90 THEN
  13. 9120 RETURN C+32
  14. 9130 ELIF C<32 OR C>90 THEN
  15. 9140 RETURN C+64
  16. 9150 ELSE 
  17. 9160 RETURN C
  18. 9170 ENDIF 
  19. 9180 ENDFUNC SCR_PETSCI
  20.